home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mdi / ttedit / mdi.bas < prev    next >
BASIC Source File  |  1994-11-28  |  2KB  |  79 lines
  1. Option Explicit
  2.  
  3. '
  4. '  Calling LinkMenu binds the "Button" to a Menu
  5. '
  6. Sub BindMenus ()
  7.    Dim F As MDI
  8.    Set F = MDI
  9.    Call LinkMenu(BUTTON_NEW, F.mnu_File_New)
  10.    Call LinkMenu(BUTTON_OPEN, F.mnu_File_Open)
  11.    Call LinkMenu(BUTTON_PRINT, F.mnu_File_Print)
  12.    Call LinkMenu(BUTTON_CUT, F.mnu_Edit_Cut)
  13.    Call LinkMenu(BUTTON_COPY, F.mnu_Edit_Copy)
  14.    Call LinkMenu(BUTTON_PASTE, F.mnu_Edit_Paste)
  15.    Call LinkMenu(BUTTON_FIND, F.mnu_Search_Find)
  16.    Call LinkMenu(BUTTON_TOOLTIPS, F.mnu_Options_Tooltips)
  17.    Call LinkMenu(BUTTON_HELP, F.mnu_Help_HelpTopics)
  18.    Call SynchButtons
  19. End Sub
  20.  
  21. Sub FileOpen ()
  22.    Dim FO As CD_OPENFILE_TYPE
  23.    Dim Fname As String
  24.    Dim Temp$
  25.    FO.Flags = OFN_HIDEREADONLY
  26.    FO.Filter = "Text Files|*.txt;*.ini;*.bat;*.c;*.bas;*.mak;*.frm|All Files (*.*)|*.*"
  27.    Call CD_OpenFile(FO)
  28.    Fname = Trim(FO.Filename)
  29.    If Len(Fname) Then
  30.       Temp$ = OpenFile(Fname)
  31.       If Len(Temp$) Then
  32.         Call NewFile
  33.         MDI.ActiveForm.Caption = Fname
  34.         MDI.ActiveForm.txtTextEdit = Temp$
  35.       End If
  36.    End If
  37. End Sub
  38.  
  39. Sub FileSave ()
  40.     Dim Filename As String
  41.     Dim F As Form
  42.     Set F = MDI.ActiveForm
  43.     Filename = F.Caption
  44.     If Filename = NEW_FILE_TITLE Then
  45.        Filename = " "
  46.        Filename = FileSaveAs(Filename)
  47.     End If
  48.     If Len(Filename) Then
  49.        Call WriteFile(Filename, CStr(F.ActiveControl))
  50.        F.Caption = Filename
  51.        If Not Err Then
  52.          ' Reset the "modified" status of the Textbox
  53.          If SendMessage(F.ActiveControl.hWnd, EM_SETMODIFY, False, ByVal 0&) Then
  54.          End If
  55.        End If
  56.     End If
  57. End Sub
  58.  
  59. Function FileSaveAs (Filename As String) As String
  60.    Dim FS As CD_OPENFILE_TYPE
  61.    FS.Flags = OFN_OVERWRITEPROMPT Or OFN_HIDEREADONLY
  62.    FS.DefaultExt = "TXT"
  63.    FS.Filename = Filename
  64.    FS.Filter = "Text Files|*.txt;*.ini;*.bat;*.c;*.bas;*.mak;*.frm|All Files (*.*)|*.*"
  65.    Call CD_SaveFile(FS)
  66.    FileSaveAs = FS.Filename
  67. End Function
  68.  
  69. Sub NewFile ()
  70.     Dim X As Integer
  71.     Dim NF As NextForm_Type
  72.     NF.Formclass = CLASS_frmTextEdit
  73.     Call Nextform(Forms_frmTextEdit(), NF)
  74.     X = NF.Index
  75.     Forms_frmTextEdit(X).Tag = NF.Tag
  76.     Forms_frmTextEdit(X).Caption = NEW_FILE_TITLE
  77. End Sub
  78.  
  79.